M (α, sin α)

N (α, cos α)

P (α, tan α)

Q (α, cotan α)

Trace of point M

Trace of point N

Trace of point P

Trace of point Q

k = 0 (slider from -10 to 10, step 1)
A = Intersect(xAxis, yAxis)
B = Point(yAxis)
c = Circle(A, B)
C = Point(c)
D = Intersect(c, xAxis, 2)
α = Angle(D, A, C)
a = Segment(A, C)
N: (α + k 2 * 3.141592653589793, cos(α + k 2 * 3.141592653589793))
P: (α + k 3.14, tan(α + k 3.14))
Q: (α + k 3.141592653589793, 1 / tan(α + k 3.141592653589793))
M: (α + k 2 * 3.141592653589793, sin(α + k 2 * 3.141592653589793))
b = false
d = false
e = false
f = false